Option Explicit
Sub N_Sample019()
    Dim myAr As Variant
    Dim i    As Long
    myAr = Array("Excel", 123, "today", "饻")	'}Cw
    For i = LBound(myAr) To UBound(myAr)
        MsgBox myAr(i)
    Next
End Sub
